﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class accesosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As AccesosBE
        Dim tmpAccesos As AccesosBE = New AccesosBE()
        Try
            With tmpAccesos
                .IdCaja = convertDTFromDb.convertInt32(dr.Item("IdCaja"))
                .IdEmpresa = convertDTFromDb.convertInt32(dr.Item("IdEmpresa"))
                .Fecha = convertDTFromDb.convertDateTime(dr.Item("Fecha"))
                .IPRemota = convertDTFromDb.ConvertString(dr.Item("IPRemota"))

            End With
            Return tmpAccesos
        Catch ex As Exception
            Throw
        Finally
            tmpAccesos = Nothing
        End Try
    End Function
End Class
